#open(BUFF,"ls ./expr |");
open(BUFF,"ls ./OV_expr |");
system("mkdir OV_expr_tumor");
system("mkdir OV_expr_normal");
while($line=<BUFF>)
{
	chomp($line);
	@array = split(/\./,$line);
	@array1 = split('-',$array[0]);
	#print $array1[3]."\n";
	@array2 = split(//,$array1[3]);
	$l = $array2[0].$array2[1];
	#print $l."\n";
	if($l eq "01")
	{
		#print WRBUFF1 $line."\n";
		#system("mv ./expr/$line ./GBM_expr_tumor");
			system("mv ./OV_expr/$line ./OV_expr_tumor");
	}
	elsif($l eq "10" || $l eq "11" || $l eq "12")
	{
		#print WRBUFF2 $line."\n";
		#system("mv ./expr/$line ./GBM_expr_normal");
		system("mv ./OV_expr/$line ./OV_expr_normal");
	}
	else
	{
	}
	
	#print $array2[0].$array2[1]."\n";
}

